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16-Sep-1984 00:29: VAX-11 FORTRAN V3.4-56 Page 1 
~3ee18Be 92:33:23 SN SimSWASten: PERE scecaToF.For:1  °2? 
8003 , SUBROUTINE FRCTOF (LUN) 
: : Version: *v04-000' 
5 Cee eee eee eee AKAAAAAAEAAAAAARAAAAAEEAAAAAAEKAREE AAA e eee eee AeeeAee 
Ce * 
C* COPYRIGHT (c) 1978, 1980, 7982, 1984 BY © 
C* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
es es ALL RIGHTS RESERVED. * 
q 7 
13 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED »* 
\¢ C* ONLY IN ACCORDANCE WITH TERMS OF SUCH LICENSE AND WITH THE * 
1 €* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
pig es TRANSFERRED. * 
& 
0018 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
00 , oh CORPORATION. ® 
& 
80 ¢ C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ae es SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 
09 é LEE ee ee PCN Re EN NE LINN te ON PE EL 
C 
0028 C 
0029 C 
Boa : AUTHOR BRIAN PORTER CREATION DATE 5-APR-1979 
b035 C 
O03 : Functional Description: 
0035 3 This modules handles the output of report headers. 
sit 44 : Modified By: 
0039 C v03-002 SARO242 Sharon A. Reynolds 22-Apr-1984 
Bee : Changed routine name from TOF to FRCTOF. 
S94 C v03-001 SARO129 Sharon A, Reynolds 77-Sep-1983 
? : changed the Fortran carriage control for use with 
5 6 (CC ; 
$ Cee 
(-- 
98 
0080 INCLUDE ‘SRC$:SYECOM.FOR /NOLIST' 
179 
190 BYTE LUN 
181 BYTE Form_feed 
136 Data Form_feed /12/ 
18 
0184 


INTEGER PAGE 


—_ — tt tC tt CC LLL LLL LL 


ig “5t0-1 9 10:33:03) DTSKSUMSRASTENSLERE ShcJTOF.FoR;1 "8%"? 


s 


=) 
oO 


CHARACTER®*17 TIME 
CHARACTER®1 LINE _FEED 
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186 
i 
1 | 
188 
189 DATA NE_F my 00 
0189 LINE_FEED / 9 
0191 CHARACTER*13 HERA 
019¢ DATA HERALD? /'V 's : /VMS'/ si 
b192 CHARACTER®*19 — HERALD2 00 
019 DATA -HERALD2 / Rye TEM ERROR REPORT'/ 4 
8139 CHARACTER®9 HERALD3 00’ 
0198 DATA -HERALD3 MCORP ILED "7 90 
0200 CHARACTER*S HERA 00 
0302 DATA HERALDS / Ranbs '/ +4 
020 00 
0305 IF (LINES .€Q. 1 .AND. .NOT. PRINTER) THEN 4 
0206 WRITE (LUN, 140) INE_FEED 00 
0207 FORMATIA 1./ —_ a 00 
0208 00; 
9209 ELSE IF (PRINTER) THEN 99 
0211 WRITE(LUN,145) Form_feed 00, 
Ogte FORMAT (A15 00, 
021 00, 
0214 ELSE IF (FORMS) THEN 00' 
0215 00: 
0216 WRITE(LUN,150) (LINE_FEED,1 = LINES,69) 00. 
0217 FORMAT (A1) 00: 
0218 ENDIF 00' 
0219 00: 
9220 IF (FORMS) THEN 99 
0938 CALL SYSSASCTIM (,TIME,,%VAL(O)) 99. 
0 34 PAGE = PAGE + 1 90 
0 36 IF (PAGE .EQ. 1000) PAGE = 1 90 
0228 WRITE (LUN, 155) \ RALDI. HERALD 2 HERALDS, TIME ,HERALD4 , PAGE 00: 
0229 FORMA °148,A9,A,/ 00: 
1 16S. AS. it | 00. 
2 LINES = 6 | $0 
35 | 00 
34 RETURN 00 
5 ENDIF 00 
2 00 
LINES = 3 | 09 
9 RETURN | 90 
END 01 
| 
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PROGRAM SECTIONS 


Name Bytes Attributes 
CODE 28? PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 6 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 144 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
SYECOM 44 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 513 
ENTRY POINTS 
Address Type Name 
0-00000000 FRCTOF 
VARIABLES 
Address Type Name Address Type Name 


-0000001 L*1 CP_11750 -00000011 L*1 CP_11780 
-00000013 L*1 CP 11722 -00000014 L*4 CRYPTK_FLAG 
-0000000D I*4 DEV_CHAR -0000001E L*1 END _VACUE 
-0000001D L*1 EOF FLAG -00000004 L*4 FORMS 
-00000000 L*1 FORA FEED -00000013 CHAR HERALD1 
-00000020 CHAR HERALD -00000033 CHAR HERALD3 
-0000003C CHAR HERALD4 m4 4's I*4 |] 
-0000000C L*1 NES -00000012 CHAR LINE_FEED 
-00000027 I*4 LSTLUN AP-000000048 L*1 LUN 
-O000001F I*4 MAILBOX_CHANNEL -000000 CHAR OPTIONS 
—Poppnas I*4 PAGE -000000 L*4 PRINTER 

I*4 RECCNT “BO0008 I1*4 RECORD_SIZE 
-00000001 CHAR TIME -00000019 L*1 VALID_CLASS 
-0000001A L*1 VALID_CPU -0000001B L*l VALID-ENTRY 
-0000001C L*1 VALID-TYPE -00000018 L*1 VOLUME_OUTPUT 

LABELS 
Address Label Address Label Address Label Address Label 

1-00000000 140° 1-00000004 145° 1-00000007 150° 1-0000000A 155° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
SYSSASCTIM 
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COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$: TOF /OBJ=OBJ$: TOF MSRCS$: TOF 


/CHECK=(NOBOUNDS OVERFLOW NOUNDERF LOW) 
/DEBUG= (NOS YMBOL §, TRACEBACK) 


Thx NOSOURCE 
/SHOW= (NOPREPROCE SSOR , NOINCLODE ,M | 
/#7? /NOG_FLOATING /14 SOPTIAIZE. /WARNINGS /NOD LLINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 
Page Faults: 
Dynamic Memory: pages 


3 
03 
3 
034 


1.75 seconds 
Elapsed Time: 130° seconds 
170 
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